Código fuente de 'Agrega cadena.asp'
<html>
<head>
<title>Agrega cadena - Códigos asp, programacion asp, descargas asp, rutinas asp</title>
</head>
<p align="center"><b><font size="3">Agrega cadena</font></b>
<body style="font-family: Arial; font-size: 11pt">
</p>
<b>Explicación de la función:</b><br>
AgregaCadena (cadena, elemento, extension, posicion)<b><br>
</b>cadena = cadena original<br>
elemento = cadena a insertar<br>
extension = número de veces a insertar<br>
posicion = 1, añade al final, 2 añade al principio<br>
<br>
<b>Ejemplo:</b><br>
AgregaCadena("Código ASP","ab",2,2)<br>
<b>Resultado:</b> <%response.write AgregaCadena("Código ASP","ab",2,2)%><br>
<br>
<br>
<%
Public Function AgregaCadena(cadena ,elemento ,extension ,posicion)
cadena = cstr(cadena)
elemento = cstr(elemento)
If extension > 0 Then
For icounter = 0 to extension
tmpstr = tmpstr&elemento
Next
Select Case posicion
Case 1 'add element to the right
cadena = cadena & tmpstr
Case 2 'add element to the left
cadena = tmpstr & cadena
End Select
End If
AgregaCadena = cadena
'example :
'will result : 00000I love you
End Function
%>
</body></html>